0 REM   MATHEMATISCHE FORMELN
1 REM
2 REM           VON
3 REM   RAIMUND     DREISSIG  (C)1987
4 REM
5 PRINTCHR$(142)CHR$(8):POKE53280,11:POKE53281,0:GOTO21
6 Z=10:A$="":IFZ1=1THENZ=20
7 POKE204,0:GETX$:IFX$=""THEN7
8 IFX$="_"THENPRINT" ":POKE204,1:GOTO21
9 A=ASC(X$):IFA=20ANDA$=""THEN7
10 IFA>=65ANDA<=70THEN14
11 IFA=20THENPRINT"!  !!";:A$=LEFT$(A$,LEN(A$)-1)
12 IFA=13THENPRINT" ":POKE204,1:GOTO16
13 IFA<48ORA>57THEN7
14 IFLEN(A$)>Z-1THEN7
15 PRINTX$;:A$=A$+X$:GOTO7
16 IFA$=""THEN21
17 FORW=1TOLEN(A$):X$=MID$(A$,W,1):IFASC(X$)>64ANDASC(X$)<71THEN20
18 NEXT
19 IFVAL(A$)=0THEN21
20 RETURN
21 Z1=0:PRINT"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
22 PRINT"[145][180]      M A T H E M A T I S C H E       [170]"
23 PRINT"[145][180]                                      [170]"
24 PRINT"[145][180]           F O R M E L N              [170]"
25 PRINT"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":PRINT"[153]M E N U E :"
26 PRINT"[159] 1 [146] : [158]PRIMZAHLEN"
27 PRINT"[159] 2 [146] : [158]PRIMFAKTOREN"
28 PRINT"[159] 3 [146] : [158]FAKTORENZERLEGUNG"
29 PRINT"[159] 4 [146] : [158]GROESSTER GEM.TEILER (GGT)"
30 PRINT"[159] 5 [146] : [158]KLEINSTES GEM.VIELFACHES (KGV)"
31 PRINT"[159] 6 [146] : [158]ZAHLENUMWANDLUNG"
32 PRINT"[159] _ [146] : [154]MENUE"
33 PRINT"[159] E [146] : [150]ENDE"                                         
34 GETB$:IFB$=""THEN34
35 IFB$="E"THENPRINT"[147]":END
36 IFVAL(B$)=0THEN21
37 ONVAL(B$)GOTO39,112,94,75,56,132
38 GOTO34
39 PRINT"[147]";:FORW=0TO119:PRINT"[154] ";:NEXT
40 PRINT"[154][145][145]PRIMZAHLEN"
41 PRINT"OBERE GRENZE > 5  ";:GOSUB6:IFASC(A$)>64ANDASC(A$)<71THEN39
42 IFVAL(A$)<6THEN39
43 PRINT"[147]PRIMZAHLEN VON 0 - ";A$
44 PRINT"2  3  ";
45 N=5
46 W=SQR(N)
47 FORK=3TOWSTEP2
48 I=INT(N/K)
49 IFI*K-N<0THEN51
50 GOTO53
51 NEXTK
52 PRINTN;
53 N=N+2
54 IFVAL(A$)-N>0THEN46
55 WAIT203,63:GOTO39
56 PRINT"[147]";:FORW=0TO119:PRINT" ";:NEXT
57 PRINT"[145][145]BERECHNUNG DES KGV VON 2 ZAHLEN"
58 PRINT"ZAHL A:";:GOSUB6:IFASC(A$)>64ANDASC(A$)<71THEN56
59 C=VAL(A$):IFC=0THEN21
60 PRINT"ZAHL B:";:GOSUB6:IFASC(A$)>64ANDASC(A$)<71THEN56
61 D=VAL(A$)
62 X=C:Y=D
63 GOSUB68
64 PRINT"[147]DAS KGV VON ";C;"UND ";D;"IST"
65 PRINT
66 PRINTC*D/G
67 WAIT203,63:GOTO56
68 Q=INT(X/Y)
69 R=X-Q*Y
70 IFR=0THENGOTO73
71 X=Y:Y=R
72 GOTO68
73 G=Y
74 RETURN
75 PRINT"[147]";:FORW=0TO119:PRINT"[158] ";:NEXT
76 PRINT"[158][145][145]BERECHNUNG DES GGT VON 3 ZAHLEN"
77 PRINT"ZAHL A:";:GOSUB6:F=VAL(A$):IFASC(A$)>64ANDASC(A$)<71THEN75
78 PRINT"ZAHL B:";:GOSUB6:G=VAL(A$):IFASC(A$)>64ANDASC(A$)<71THEN75
79 PRINT"ZAHL C:";:GOSUB6:H=VAL(A$):IFASC(A$)>64ANDASC(A$)<71THEN75
80 X=F:Y=G
81 GOSUB87
82 X=I:Y=H
83 GOSUB87
84 PRINT"[147]DER GGT VON";F ;G ;H ;"IST"
85 PRINT"";I
86 WAIT203,63:GOTO75
87 Q=INT(X/Y)
88 R=X-Q*Y
89 IFR=0THENGOTO92
90 X=Y:Y=R
91 GOTO87
92 I=Y
93 RETURN
94 PRINT"[147]";:FORW=0TO119:PRINT" ";:NEXT
95 PRINT"[145][145]FAKTORENZERLUNG VON 2 ZAHLEN"
96 GOTO97
97 PRINT"ZAHL A : ";:GOSUB6:J=VAL(A$):IFASC(A$)>64ANDASC(A$)<71THEN94
98 PRINT"ZAHL B : ";:GOSUB6:K=VAL(A$):IFASC(A$)>64ANDASC(A$)<71THEN94
99 A1=J:B1=K:L=J
100 PRINT"[147]":GOSUB106:L=K
101 PRINT"":GOSUB106:GOTO111
102 R=J-K*INT(J/K)
103 IFR=0THEN105
104 J=K:K=R:GOTO102
105 RETURN
106 PRINT"FAKTOREN VON "L""
107 FORM=2TOL-1
108 IFL/M>INT(L/M)THEN110
109 PRINTM";";
110 NEXTM:PRINT:PRINT:RETURN
111 WAIT203,63:GOTO94
112 PRINT"[147]";:FORW=0TO119:PRINT"[156] ";:NEXT
113 PRINT"[156][145][145]PRIMFAKTORENZERLEGUNG VON 2 ZAHLEN"        "
114 [153]"ZAHL A:";:[141]6:N[178][197](A$):[139][198](A$)[177]64[175][198](A$)[179]71[167]112
115 [153]"ZAHL B:";:[141]6:O[178][197](A$):[139][198](A$)[177]64[175][198](A$)[179]71[167]112
116 [153]
117 [153]"LOAD":[141]119:N[178]O
118 [153]"":[141]119:[137]131
119 [153]"PRIMFAKTOREN VON "N":":
120 [153]
121 K[178]1
122 K[178]K[170]1
123 [139]K[172]K[177]N[167]128
124 [139]N[173]K[177][181](N[173]K)[167]122
125 [153]K;
126 N[178]N[173]K
127 [137]121
128 [153]N
129 [153]
130 [142]
131 [146]203,63:[137]112
132 Z1[178]0:[153]"LOAD";:[129]W[178]0[164]119:[153]"OPEN ";:[130]
133 [153]"OPENONONZAHLENUMWANDLUNG"
134 CZ[178]12:CS[178]5:[141]180
135 [153]"1 DEZIMAL ---> BELIEBIGE BASIS"
136 CZ[178]13:CS[178]5:[141]180
137 [153]"2 BELIEBIGE BASIS ---> DEZIMAL"
138 CZ[178]14:CS[178]5:[141]180
139 [161]C$
140 [139]C$[178]"*"[167]21
141 [139]C$[178]"1"[167]144
142 [139]C$[178]"2"[167]159
143 [137]139
144 Z1[178]0:[153]"LOADDEZIMAL ---> BELIEBIGE BASIS <= 16 "
145 Y$[178]"0123456789ABCDEF"
146 [153]"BASIS       : ";:[141]6:G[178][197](A$):[139][198](A$)[177]64[175][198](A$)[179]71[167]144
147 [139]G[179][178]1[176]G[177]16[167]144
148 [153]"DEZIMALZAHL : ";:[141]6:N[178][197](A$)
149 Z$[178]"":[139][198](A$)[177]64[175][198](A$)[179]71[167]144
150 [153]"ERGEBNIS    : ";
151 [129]I[178]0[164]255
152 R[178]N[171]G[172][181](N[173]G)
153 Z$[178][202](Y$,R[170]1,1)[170]Z$
154 N[178][181](N[173]G)
155 [139]N[178]0[167]157
156 [130]I
157 [153]Z$;"              "
158 [146]203,63:[137]144
159 Z1[178]0:[153]"LOADZAHL MIT BASIS <=16 ---> DEZIMALZAHL "
160 Y$[178]"0123456789ABCDEF"
161 [153]"BASIS   : ";:[141]6:G[178][197](A$):[139]G[179]5[167]Z1[178]1
162 [139]G[179][178]1[176]G[177]16[167]159
163 [139][198](A$)[177]64[175][198](A$)[179]71[167]159
164 [153]"ZAHL    : ";:[141]6:Z$[178]A$
165 [129]W[178]1[164][195](Z$):U$[178][202](Z$,W,1):U[178][197](U$):[139]U[177]G[171]1[167]159
166 P1[178][198]([202](Z$,W,1)):[139]P1[179]71[175]P1[177]64[167]P1[178]P1[171]55:[139]P1[177]G[171]1[167]159
167 [130]
168 Z1[178]0:[153]"DEZIMAL :";
169 N[178]0
170 [129]I[178]1[164][195](Z$)
171 T$[178][202](Z$,I,1)
172 [129]K[178]1[164][195](Y$)
173 [139]T$[179][177][202](Y$,K,1)[167]176
174 N[178]N[172]G[170]K[171]1
175 [137]177
176 [130]K
177 [130]I
178 [153]N;"CMD                          "
179 [146]203,63:[137]159
180 CZ[178]1024[170]40[172]CZ
181 [151]209,CZ[175]255
182 [151]210,CZ[173]256
183 [151]211,CS
184 [142]